home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d15 / maximo_1.arc / TXT.ARC / PURCH.TXT < prev    next >
Text File  |  1991-08-20  |  3KB  |  119 lines
  1. ;
  2. ;  PURCH -- (c) 1990 Chris Butler
  3. ;
  4.  
  5. ;VIDEO M
  6.  
  7.  
  8.   set all off
  9.   goto  top
  10. all:
  11.   set all on
  12. top:
  13.  
  14. global boxllx 0 ; mod 8 = 0
  15. global boxlly 0
  16. global boxw  488
  17. global boxh  115
  18. global boxtitle "Max with Ed the engineer"
  19. set h 17    ; key height
  20. set keycolor 14 ; keytop color in convbox = 14 (yellow)
  21. set txtboxclr 14; 
  22. cload max.clp 30 1 0      ; max's face
  23. tran on 15
  24. cload cover.clp 32 0 1 
  25. merge toursubs.txt
  26.  
  27. alice:
  28. set boxtitle "Max and Alice in Accounting"
  29. set entrypoint "entry_10"
  30. pload palette1.pcx 1
  31. palette 1
  32. pfree 1
  33. cload kim.clp 31 1 0
  34. call steps.txt accounting
  35.  
  36. label401:
  37. newbgrnd "kim1a.pcx" 80 40 1 0 50 5
  38. ;mouse on
  39. set str1 "Hi Alice. Do you happen to remember seeing a MAXIMO requisition for"
  40. set str2 " Block Bearings?"
  41. say 1 @str1 @str2
  42. waitkey 50
  43. label1a:
  44. getcmd
  45. if @0<>"backup" label402
  46. noise 500 200 50
  47. waitkey 100
  48. goto label1a
  49.  
  50. label402:
  51. set str1 "Max, I already sent it to ABC Industrial Supply. And I got a great"
  52. set str2 " price because MAXIMO showed me our purchase history with 3 vendors!"
  53. say 0 @str1 @str2
  54. waitkey 50
  55. getcmd
  56. if @0=="backup" label401
  57.  
  58. label403:
  59. newbgrnd "22.pcx" 80 0 1 0 100 9
  60. set str1 "That's great. Can you look up the PO and see when the part's due in?"
  61. set str2 ""
  62. say 1 @str1 @str2
  63. waitkey 50
  64. getcmd
  65. if @0=="backup" label402
  66.  
  67. label404:
  68. newbgrnd "23.pcx" 80 0 0 0 200 9
  69. set str1 "It's due October 1. Max, I love this system. Since I dumped "
  70. set str2 "paperwork requisitions, I've had extra time to price shop vendors."
  71. say 0 @str1 @str2
  72. waitkey 50
  73. getcmd
  74. if @0=="backup" label403
  75.  
  76. label405:
  77. set str1 "Right, and we know our vendors are performing better because we can "
  78. set str2 "track them in MAXIMO! Alice would you like to see my draft budget?"
  79. say 1 @str1 @str2
  80. waitkey 50
  81. getcmd
  82. if @0=="backup" label404
  83.  
  84. label406:
  85. newbgrnd "24.pcx" 56 0 0 0 50 9
  86. set str1 "Looks good. Let's see how it compares to this year's budget.        "
  87. set str2 "[VIEWERS: TYPE `S' TO SEE WHOLE SCREEN] "
  88. say 0 @str1 @str2
  89. waitkey 50
  90. getcmd
  91. if @0=="backup" label405
  92.  
  93. label407:
  94. newbgrnd "25.pcx" 0 0 0 0 50 9
  95. set str1 "Fantastic! We're forecasting 10% less than last year. MAXIMO means  "
  96. set str2 "reduced overtime, fewer parts orders, and best use of shutdown labor."
  97. say 1 @str1 @str2
  98. waitkey 50
  99. getcmd
  100. if @0=="backup" label406
  101.  
  102. label408:
  103. newbgrnd "kim1a.pcx" 80 0 0 0 200 9
  104. set str1 "All that, PLUS it looks like you'll have your budget ready on "
  105. set str2 "schedule for the first time ever."
  106. say 0 @str1 @str2
  107. waitkey 50
  108. getcmd
  109. if @0=="backup" label407
  110.  
  111. ;mouse off
  112.  
  113. if @all==on linkit
  114.   link master.txt entry_10
  115. linkit:
  116.   link mis.txt all
  117.  
  118. ; SUBR PURCH
  119.